Option Explicit
'ۭqҲ
Dim mySrtFlg As Boolean
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    '}Cw
    myAr = Worksheets("L_Data01").Range("C2:D11").Value
    With ListBox1
        'wMݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .List = myAr
    End With
    mySrtFlg = True					'H@Ƨ
End Sub

Private Sub CommandButton1_Click()
    Dim mySht As Worksheet
    Dim myAr  As Variant
    Dim myOdr As Long
    Select Case mySrtFlg
        Case True
            MsgBox "N2H@Ƨ"
            myOdr = xlAscending
        Case False
            MsgBox "N2HƧ"
            myOdr = xlDescending
    End Select
    Application.ScreenUpdating = False
    myAr = ListBox1.List
    With Worksheets.Add
        With .Cells(1, 1).Resize(UBound(myAr, 1) + 1, UBound _
			 (myAr, 2) + 1)
            .Value = myAr
            .Sort Key1:=.Range("B1"), Order1:=myOdr, _
				Header:=xlNo				'wKEY
            myAr = .Value
        End With
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
    ListBox1.List = myAr
    mySrtFlg = Not mySrtFlg
    Application.ScreenUpdating = True
    Set mySht = Nothing					'
End Sub
